home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / quicspool / libqmsquery / qmspfplex.l < prev    next >
Text File  |  1990-10-01  |  698b  |  33 lines
  1. /* $Header: qmspfplex.l,v 1.1 88/01/15 12:19:28 simpson Rel $
  2. %{
  3. /*
  4. $Log:    qmspfplex.l,v $
  5.  * Revision 1.1  88/01/15  12:19:28  simpson
  6.  * initial release
  7.  * 
  8.  * Revision 0.1  87/12/11  21:34:49  simpson
  9.  * beta test
  10.  * 
  11. */
  12. #undef input
  13. #define input()    (((yytchar=yysptr>yysbuf?U(*--yysptr):timedgetc(_Ifp)) \
  14.     ==10?(yylineno++, yytchar):yytchar)==EOF?0:yytchar)
  15. #ifdef TRW
  16. #include <local/standard.h>
  17. #else
  18. #define EQN(s, t, n)    (!strncmp(s, t, n))
  19. #endif
  20. %}
  21. %%
  22. [^\r\n]+        {
  23.                 if (EQN("PFP:", yytext, 4))
  24.                 REJECT;
  25.                 if (EQN("NONE", yytext, 4))
  26.                 REJECT;
  27.                 (void)strcpy(yylval.s, yytext);
  28.                 return STRING;
  29.             }
  30. PFP:            return PFP;
  31. NONE            return NONE;
  32. \r\n            return ENDLINE;
  33.